home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / FTP / FTP.ZIP / FTP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-05-15  |  3KB  |  175 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Date     DATE001
  24.     Integer  INTEGER001
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Cls
  38.     BOOLEAN003 = 1
  39.     BOOLEAN004 = 1
  40.     STRING006 = "Y"
  41.     PrintLn "@X0FFTP by Email - Version .20b"
  42.     PrintLn "Nicks' World BBS - Home of NicksWare!"
  43.     PrintLn "Your Name and BBS Name Here if registered!"
  44.     PrintLn 
  45.     PrintLn "THIS PRODUCT IS UNREGISTERED, PLEASE ASK YOUR SYSOP TO REGISTER IT!"
  46.     Wait
  47.     FOpen 1, PPEPath() + "FTP.CFG", 0, 0
  48.     FGet 1, INTEGER001
  49.     FClose 1
  50.     BOOLEAN004 = 1
  51.     PrintLn 
  52.     Input "Enter HOST name", STRING007
  53.     PrintLn 
  54.     Input "Enter UNIX directory", STRING008
  55.     PrintLn 
  56.     If (BOOLEAN004) Then
  57.         Input "Enter FILENAME", STRING009
  58.         PrintLn 
  59.         STRING006 = "Y"
  60.         InputYN "Is this a BINARY file (Y/N)", STRING006, 15
  61.         PrintLn 
  62.         If (STRING006 == "Y") Then
  63.             BOOLEAN003 = 1
  64.             PrintLn "FILETYPE: BINARY"
  65.             Goto LABEL001
  66.         Endif
  67.         BOOLEAN003 = 0
  68.         PrintLn "FILETYPE: ASCII"
  69.     Endif
  70.     :LABEL001
  71.     PrintLn 
  72.     Print "Creating FTP request...."
  73.     STRING005 = PPEPath() + "FTEMP" + String(PcbNode()) + ".TMP"
  74.     FCreate 1, STRING005, 1, 3
  75.     STRING001 = U_Name()
  76.     STRING003 = "ftpmail@sunsite.unc.edu"
  77.     STRING002 = " "
  78.     STRING004 = "R"
  79.     BOOLEAN001 = 0
  80.     BOOLEAN002 = 1
  81.     DATE001 = Date() + 3
  82.     FPutLn 1, "open ", STRING007
  83.     If (BOOLEAN004) Then
  84.         If (BOOLEAN003) Then
  85.             FPutLn 1, "binary"
  86.             FPutLn 1, "uuencode"
  87.             Goto LABEL002
  88.         Endif
  89.         FPutLn 1, "ascii"
  90.     Endif
  91.     :LABEL002
  92.     FPutLn 1, "cd ", STRING008
  93.     If (BOOLEAN004) Then
  94.         FPutLn 1, "get ", STRING009
  95.     Else
  96.         FPutLn 1, "dir"
  97.     Endif
  98.     FPutLn 1, "quit"
  99.     FClose 1
  100.     PrintLn "Done!"
  101.     STRING006 = "Y"
  102.     InputYN "Do you want to send this request (Y/N)", STRING006, 15
  103.     If (STRING006 == "Y") Then
  104.         PrintLn 
  105.         PrintLn "Request sent!"
  106.         Message INTEGER001, STRING003, STRING001, STRING002, STRING004, DATE001, BOOLEAN001, BOOLEAN002, STRING005
  107.     Else
  108.         PrintLn 
  109.         PrintLn "Request Aborted!"
  110.     Endif
  111.     PrintLn "Returning back to BBS"
  112.     Wait
  113.     PrintLn 
  114.     PrintLn "THIS PRODUCT IS UNREGISTERED, PLEASE ASK YOUR SYSOP TO REGISTER IT!"
  115.     Wait
  116.     PrintLn "@X8FSHAREWAER DELAY IS 20 SECONDS...REGISTRATION REMOVES THIS DELAY AND ADDS"
  117.     PrintLn "GREAT FEATURES TO THE PRODUCT..........@X07"
  118.     Delay (20 * 182) / 10
  119.     End
  120.  
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Usage report (before postprocessing)
  124. ;
  125. ; ■ Statements used :
  126. ;
  127. ;    1       End
  128. ;    1       Cls
  129. ;    3       Wait
  130. ;    10      Goto 
  131. ;    16      Let 
  132. ;    1       Print 
  133. ;    23      PrintLn 
  134. ;    6       If 
  135. ;    3       Input 
  136. ;    1       FCreate 
  137. ;    1       FOpen 
  138. ;    2       FClose 
  139. ;    1       FGet 
  140. ;    8       FPutLn 
  141. ;    2       InputYN 
  142. ;    1       Delay 
  143. ;    1       Message 
  144. ;
  145. ;
  146. ; ■ Functions used :
  147. ;
  148. ;    1       *
  149. ;    1       /
  150. ;    5       +
  151. ;    2       ==
  152. ;    6       !
  153. ;    1       Date()
  154. ;    1       U_Name()
  155. ;    1       String()
  156. ;    2       PPEPath()
  157. ;    1       PcbNode()
  158. ;
  159. ;------------------------------------------------------------------------------
  160. ;
  161. ; Analysis flags : No flag
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;
  165. ; Postprocessing report
  166. ;
  167. ;    0       For/Next
  168. ;    0       While/EndWhile
  169. ;    6       If/Then or If/Then/Else
  170. ;    0       Select Case
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;                 AEGiS Corp - Break the routines, code against the machines!
  174. ;------------------------------------------------------------------------------
  175.